home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u304.dms / in.adf / bits / Screen_Manipulation.AMOS / Screen_Manipulation.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1992-03-22  |  2.3 KB  |  92 lines
  1. Screen Open 1,320,200,32,Lowres
  2. Load Iff "amos_data:iff/amospic.iff"
  3. Screen Open 2,320,200,32,Lowres
  4. Curs Off 
  5. Cls 0
  6. Get Palette 1
  7. Hide 
  8. _SPLERGE[2,1,2]
  9. Do : Loop 
  10. ' * Screen manipulation procedures by James Lanng (APE), unless specified! * 
  11.  
  12. Procedure _FADE[SPEED]
  13.    Fade SPEED
  14.    Wait SPEED*15
  15. End Proc
  16. Procedure _SMALLERBOX[CL]
  17.    Ink CL
  18.    For A=1 To Screen Width/2
  19.       Draw A,0 To A,Screen Width
  20.       Draw Screen Width-A,0 To Screen Width-A,Screen Height
  21.       B=A*(1.5625*(Screen Width/320))/2
  22.       Draw 0,B To Screen Width,B
  23.       Draw 0,Screen Height-B To Screen Width,Screen Height-B
  24.    Next A
  25. End Proc
  26. Procedure _LINESRIGHT[CL,LINES]
  27.    Ink CL
  28.    For B=0 To Screen Width/LINES
  29.       For A=0 To LINES
  30.          Draw Screen Width/LINES*A+B,0 To Screen Width/LINES*A+B,Screen Height
  31.       Next A
  32.    Next B
  33. End Proc
  34. Procedure _LINESLEFT[CL,LINES]
  35.    Ink CL
  36.    For B=Screen Width/LINES To 0 Step -1
  37.       For A=LINES To 0 Step -1
  38.          Draw Screen Width/LINES*A+B,0 To Screen Width/LINES*A+B,Screen Height
  39.       Next A
  40.    Next B
  41. End Proc
  42. Procedure _LEFTUPRIGHTDOWN[CL]
  43.    Ink CL
  44.    For A=0 To 320
  45.       Draw 0,A To 160,A
  46.       Draw 160,250-A To 320,250-A
  47.    Next A
  48. End Proc
  49. Procedure _RIGHTUPLEFTDOWN[CL]
  50.    Ink CL
  51.    For A=0 To Screen Width
  52.       Draw Screen Width/2,A To Screen Width,A
  53.       Draw 0,Screen Height-A To Screen Width/2,Screen Height-A
  54.    Next A
  55. End Proc
  56. Procedure _BOTTOMRIGHTTOPLEFT[CL]
  57.    Ink CL
  58.    For A=0 To Screen Width
  59.       Draw A,0 To A,Screen Height/2
  60.       Draw Screen Width-A,Screen Height/2+1 To Screen Width-A,Screen Height
  61.    Next A
  62. End Proc
  63. Procedure _BOTTOMLEFTTOPRIGHT[CL]
  64.    Ink CL
  65.    For A=0 To Screen Width
  66.       Draw A,Screen Height+1 To A,Screen Height
  67.       Draw Screen Width-A,0 To Screen Width-A,Screen Height/2
  68.    Next A
  69. End Proc
  70. Procedure _APPEAR[SRC,DST,FX]
  71.    Appear SRC To DST,FX
  72. End Proc
  73. Procedure _SPLERGE[SPEED,SOURCE,DEST]
  74.  
  75. ' This procedure was written by Peter Hickman and Copyright 1991 
  76.  
  77.    Screen SOURCE
  78.    SOURCE_SIZE=Screen Height
  79.    Screen DEST
  80.    DEST_SIZE=Screen Height
  81.    V=Min(SOURCE_SIZE,DEST_SIZE)
  82.    Screen SOURCE
  83.    SOURCE_SIZE=Screen Width
  84.    Screen DEST
  85.    DEST_SIZE=Screen Width
  86.    H=Min(SOURCE_SIZE,DEST_SIZE)
  87.    For LOP=V-SPEED To 0 Step -SPEED
  88.       For LOP1=0 To LOP Step SPEED
  89.          Screen Copy SOURCE,0,LOP,H,LOP+SPEED To DEST,0,LOP1
  90.       Next LOP1
  91.    Next LOP
  92. End Proc